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16-Sep-1984 00:04: VAX-11 FORTRAN V3.4-56 Pa 
=3007 1388 90:95:02 DISKSVMSMASTER: CERF .SRCJINITPROCZ.FORST™ 

Subroutine ERFPRC2INI ( Array_addr, Array size ) 


Version: *v04-000' 
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AUTHOR: Elliott A. Drayton CREATION DATE: 27-Jan-1983 
Functional description: 


This is the initialization module for the loadable image ERFPROC2.EXE. 
After ERFPROC2 has been loaded this routine is called to return 

the information from it tables. These tables specifiy which error 

log packets this loadable image will process. The tables consist of: 


ENTRY TYPE, DEVICE CLASS, MODULE VERSION, TRANSFER VECTOR OFFSET 


The ENTRY TYPE value is the packet type identifier for the packets that 
this loadable image will process. 


The DEVICE CLASS value specifies the class of the packet that will 
be process by this loadable image. 


The MODULE VERSION is used to determine if the module in this image 
is the one to use. This is accomplished by the root image comparing 
this value against the value in the master tables in the root image. 


The TRANSFER VECTOR OFFSET is the index to the transfer vector to 
be used for a specific device or entry type. For example, the transfer 
vectors for the disk image are ordered as: 


Ww 


S838Ss8sss 


INITDISK ' @ routine similar to this one 
MASSDISK ! a device specific routine 
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Modified by: 


v04-002 SAR0OS Sharon A. Reynolds 27-Feb-1984 
emoved SBI entry support. 


$rR0001 Sharon Reynolds 17-Mar-1983 
coenge t tables to support machine checks, bug checks and 
packets. 
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DEFINE ENTRY TYPES 


Parameter EMBSK_MC = 2 


Parameter EMASK_CR = 37 
Parameter EMBSK_SBC = 40 
Parameter EMBSK_UBC = 112 


Parameter Zero = 0 
Parameter V1 = 1 
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Mcheck module 
Machine check entries 


Bugchk module 

Crash re-start entries %X25 
System bugcheck entries 3x28 
User bugcheck entries %Xx70 


SBI module 


Device module version number 


Parameter Maxtypes = 4 
Integer*4 Array_addr, Array size 
Integer*2 Proc2_codes ( 4 * Maxtypes ) 


Procé_codes / 


Data 

1 EMBSK_MC, zero, V1, 1, 

§ EMBSK_CR, zero, V1, 2, 
EMBSK-SBC, zero, V1. 2. 

4 EMBSK_UBC, zero, V1, 2 / 


Array_addr = ZLOC (proc2_codes(1)) 


Array _size = Maxtypes 


Return 
End 


' Machine check entries 

' Crash restart entries 

' System bugcheck entries 
! User bugcheck entries 

' entries 
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ERFPRC2INI 


PROGRAM SECTIONS 
Name Bytes 


SCODE 19 
SLOCAL 32 


Total Space Allocated 51 


Attributes 


PIC CON REL LCL 
PIC CON REL LCL 


ENTRY POINTS 
Address Type Name 
0-00000000 ERFPRC2INI 


VARIABLES 


Address Type Name Address Type Name 


AP-000000048 I1*4 ARRAY_ADDR AP-00000008@ I1*4 ARRAY_SIZE 
ARRAYS 
Address Type Name Bytes Dimensions 
2-00000000 I*2 PROC2_CODES 32 (16) 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$: INITPROC2/0BJ=0BJ$: INITPROC2 MSRC$: INITPROC2 
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COMPILATION STATISTICS 


Run Time: 9.79 seconds 
Elapsed Time: 37 seconds 
Page Faults: 95 

Dynamic Memory: 155 pages 
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SHR EXE RD NOWRT LONG 
NOSHR NOEXE RD WRT LONG 
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